From babf84668ac382d5b50baeec70ffadea7fe547df Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Mon, 23 Sep 2002 16:04:50 +0000 Subject: [PATCH] (doctor-doc): Add 2 question words. (doctor-getnoun): Parse and save the complete object phrase. --- lisp/play/doctor.el | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/lisp/play/doctor.el b/lisp/play/doctor.el index 4254a99f27e..2f00b9dfb3a 100644 --- a/lisp/play/doctor.el +++ b/lisp/play/doctor.el @@ -905,7 +905,7 @@ Otherwise call the Doctor to parse preceding sentence." 'sentence 'used 'was "..." '(doc// bak)))) - ((memq (car sent) '(do has have how when where who why)) + ((memq (car sent) '(are is do has have how when where who why)) (doctor-type (doc$ qlist))) ;; ((eq (car sent) 'forget) ;; (set (cadr sent) nil) @@ -1166,7 +1166,9 @@ the subject noun, and return the portion of the sentence following it." (car x) (car x)))))) " ") (doctor-getnoun (cdr x)))) - (t (setq object (car x))) )) + (t (setq object (car x)) + (doctor-build (doctor-build (car x) " ") (doctor-getnoun (cdr x)))) + )) (defun doctor-modifierp (x) (or (doctor-adjectivep x) -- 2.30.2